Lunar Landing Game ( 387 pas de programme )

	Fantasy game creating fuel use, altitude and landing conditions. Object of the game is conserve fuel and land safely.
	Enter altitude, EXE fuel, EXE how much fuel, EXE ( to coast enter 0, EXE ). Try to keep a negative escape velocity or you will gain altitude. If you think your altitude and velocity spells crash, burn extra fuel to gain altitude and try new fuel usages. Final velocity gives condition of landing.

10 PRINT "LUNAR LANDING:";
11 X=0:V=0:F=-V
20 INPUT "ALTITUDE",X
30 V=0
40 INPUT "FUEL",F
45 PRINT "GO!!";
50 PRINT "ALT.=";X;
60 PRINT " VEL.=";V;
70 PRINT " FUEL LEFT=";F;
80 IF F=0 THEN 110
90 INPUT " HOW MUCH FUEL ",E
91 GOTO 110
100 GOTO 50
110 IF E>F;E=F
115 F=F-E
117 A=(2.3*E)-E*F/200-2*X
120 IF F=0;Y=Y+(-1)
121 IF A=0 THEN 130
122 V=V+A
123 X=X+V-(A/2)
124 IF X>1 THEN 50
130 V=-V
180 PRINT "VEL.";V;
192 PRINT " VEL. 0->5=OK! ";"5->12 BUMPY ";"12->21 CRUNCH ";
195 PRINT "21->47 CRASH ";"47->77 GONE ";
197 GOTO 20